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MODULE setjestart OUTPUT. 

CALL FUNCTION 'CRM_MONITOR_I02_WAIT' 
starting new task 'M0N02_RST ' 
performing restart jeceive on end of task 
EXPORTING r610 

I SEC = 1. 



ENDMODULE. "setjestart OUTPUT 



FIG. 6 



FUNCTION CRM_MONITOR_I02_WAIT 

* " 

* "*"Lokale Schnittstelle: 
* " IMPORTING 

VALUE(I_SEC) TYPE I DEFAULT 1 
* " EXPORTING 

VALUE (E_DUMMY) TYPE I 

* " 



wait up to i_sec seconds. 
ejJummy = 1. 

ENDFUNCTION. 

FIG. 7 
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FORM restart jeceive using taskname. 
data: 1v_dummy. 

RECEIVE RESULTS FROM FUNCTION 'CRM_MONITOR_I02_WAIT ' 
importing 

ejummy = 1v_dummy 
exceptions 

SYSTEM JAILURE = 1 

COMMUNICATION JAILURE = 2 
others = 4. 

gvjsubrc = sy-subrc. 
set user-command SCUL '. 
ENDFORM. " restart jeceive 
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